home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / cgraphix / cfndwrld.c < prev    next >
Text File  |  1986-05-28  |  1KB  |  66 lines
  1. /* «RM120»«PL99999»«TS4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64,68,72,76» */
  2. #include    <stdio.h>
  3. #define    EXTERN    extern
  4. #include    <typedef.h>
  5.  
  6.  
  7. void FindWorldDem()
  8. {
  9.     extern double    random();
  10.  
  11.     double    x;
  12.     int        dx,dy,i,n,lines,scale;
  13.     int        X1,Y1,X2,Y2;
  14.     PlotArray    b, a;
  15.  
  16.  
  17.     DefineWindow(1,0,0,XMaxGlb,YMaxGlb);
  18.     DefineWindow(2,0,0,XMaxGlb,YMaxGlb);
  19.     DefineWorld(1, 0., 0., 1000., 1000.);
  20.  
  21.     DefineHeader(2,"A FOUND WORLD");
  22.     SelectWindow(2);
  23.     SetHeaderOn();
  24.  
  25.     n = 10;
  26.     for (i = 0; i < n;i++) {
  27.             a[2 * i] = i;
  28.             a[2 * i + 1] = random()-0.5;
  29.     }
  30.  
  31.     FindWorld(2,a,n,1.,1.08);
  32.  
  33.     SelectWindow(2);
  34.     DrawBorder();
  35.  
  36.     dx = -8;
  37.     dy = 7;
  38.     X1 = 3;
  39.     Y1 = 5;
  40.     X2 = 25;
  41.     Y2 = 10;
  42.     lines = 0;
  43.     scale = 0;
  44.  
  45.     SetLineStyle(0);
  46.     DrawAxis(dx,dy,X1,Y1,X2,Y2,lines,scale,FALSE);
  47.     DrawPolygon(a,1,n,7,2,0);
  48.  
  49.  
  50.     SelectWorld(1);
  51.     SelectWindow(1);
  52.  
  53.     DrawTextW((double)730,(double)450,1,"\0337@2   The data");
  54.     DrawTextW((double)730,(double)550,1,"--  The curve");
  55. }
  56.  
  57.  
  58. main()
  59. {
  60.     InitGraphic();
  61.     FindWorldDem();
  62.     inkey();
  63.     LeaveGraphic();
  64. }
  65.  
  66.